﻿Public Class Form1
  Private Sub Button1_Click(
            ByVal sender As System.Object,
            ByVal e As System.EventArgs) _
            Handles Button1.Click
    Form2.Show()
    MessageBox.Show(
      "Dimensioni: " & My.Forms.Form2.Bounds.X &
        "x" & My.Forms.Form2.Bounds.Y)
  End Sub
End Class
